約 2,367,592 件
https://w.atwiki.jp/gamemusicbest100/pages/5320.html
イクシード eXceed-GUN BULLET CHILDREN- 機種:PC 作曲者:Shibayan 開発元:FLAT 発売年:2005年 概要 強大な力をもって人を脅かすヴァンパイアの軍勢と、それに対抗する異能者を集わせた教会所属の戦士達が戦う 5作目まで制作されたシリーズの第一弾。横画面縦シューティングゲームであり、敵弾が総じて赤いのが特徴。 敵弾にかする事でゲージが溜まり、満タンになればボムとは別に強力な必殺技が使用可能となる。 いわゆるキャラ要素とストーリーに比重が置かれている作品で、この1作目からすでに登場キャラ達のフルボイスを導入している。 またシリーズで唯一操作キャラが3人から選べ、途中のボス達との掛け合いもキャラによって変わってくる。 退廃的な異世界に迷い込んだかのように思わせるBGMも印象的。 曲一覧 曲名 備考 順位 Ernste Markierung OPENING X-D-A-T STAGE01 nova BOSS ジルドレイ戦 Stage1 STAGE02 dominant motion BOSS ルナティカ・マリス戦 Nature STAGE03 Modulator BOSS ゼーレ・クラン戦 Pressure STAGE04 Heaven BOSS シンス・アベル戦 Space janitor BOSS ブラックガブリエル戦 Narbemarkierung ENDING サウンドトラック eXceed -イクシード- オリジナルサウンドトラック
https://w.atwiki.jp/a3mi22/pages/11.html
Excel Page 関数たち グリッド線の非表示 ブックの共有 ブックにパスワードを付ける スクロールしても見出しが動かないようにする プルダウンリストを作る グループ化して折りたたむ 表のタイトル部分を印刷時に固定する 連続で同じオートシェイプを使う 名前定義を使ってみる 行番号・列番号も印刷する シートを表示 / 非表示 にする 文字の先頭を「A」に置き換える NETWORKDAYS関数を使えるようにする URLのハイパーリンクを無効にする 条件にあう数値だけ合計する 矢印キーを押してもセルが動かない シート名をセルに表示させる オートシェイプを変更する 複数条件にひっかかる件数を求める デフォルトのフォントやシート数を変更する
https://w.atwiki.jp/endomutsumi/pages/18.html
AccessでExcelシートをリンク 1.手動で実行 Access2003以前とAccess2007では手順が違うので注意。 【Access2003】 ファイル→外部データの取り込み→テーブルのリンク ファイルの種類でMicrosoft Excel(*.xls)を選択する。 【Access2007】 1.外部データ→Excel 2.Excelファイルを指定し、リンクテーブルを作成してソースデータにリンクするを選択して「OK」 3.あとは、ウィザードの指示に従う。 2.VBAでコード組む場合 すでにExcelシートがリンクされているかどうかの存在チェックをTable_chk()でチェックし、存在すれば、リンク情報を更新し、なければ新たにリンク接続を作成する。 Accessバージョン:2003 【VBAコード例】 Sub sdb_xls_link() Dim MyDb As Database Dim ExcelSheet As TableDef Dim xlsfile As String Set MyDb = CurrentDb xlsfile = GetFileName ←「ファイルを開く」ダイアログで指定(Accessで「ファイルを開く」ダイアログを使用を参照) If xlsfile = "" Then Exit Sub End If If Table_chk("Excelシート名") = False Then ←存在チェックをする Set ExcelSheet = MyDb.CreateTableDef("Excelシート名") ExcelSheet.SourceTableName = "Excelシート名$" ExcelSheet.Connect = "Excel 5.0;HDR=NO;IMEX=2;DATABASE=" xlsfile ";TABLE=Excelシート名$" MyDb.TableDefs.Append ExcelSheet Else Set ExcelSheet = MyDb.TableDefs("Excelシート名") ExcelSheet.Connect = "Excel 5.0;HDR=NO;IMEX=2;DATABASE=" xlsfile ";TABLE=Excelシート名$" ExcelSheet.RefreshLink End If Set ExcelSheet= Nothing MyDb.Close Set MyDb = Nothing End Sub Function Table_chk(strTable As String) As Boolean Dim tdf As TableDef Table_chk = False For Each tdf In CurrentDb.TableDefs If strTable = tdf.name Then Table_chk = True Exit For End If Next End Function お名前 コメント
https://w.atwiki.jp/kplus/pages/47.html
Excel 概要Microsoftが1985年に開発・販売した表計算ソフト。リリース周期は一定していないが3年前後でメジャーバージョンアップされている。定価は15,540円だが、実売は11,000~12,000円前後(2012年1月末現在)。会社から貸与されるパソコンの多くにインストールされているが、いまだにVer2000を標準としている企業も少なくない。これはVer2000はアクティベーション認証が無いため1ライセンスで複数台のPCにインストールできるため経費削減ができる点がある。当然マイクロソフトのライセンス規約違反に当たる。社内PCでVBAを利用する際は制限で利用できない場合がある。特にアドイン、オートメーション等の機能追加は制限対象になっている場合が多い。サポート期限はリンク先(❑)のページで確認されたい。
https://w.atwiki.jp/javadsge/pages/9770.html
Sub test() Cells(1, 1).Value = "EXCEL VBA" For i = 1 To 5 Cells(i, 1).Value = "EXCEL VBA" Next End Sub
https://w.atwiki.jp/javadsge/pages/304.html
package excel; import org.apache.poi.hssf.usermodel.HSSFWorkbook; import org.apache.poi.ss.usermodel.Workbook; import org.apache.poi.ss.usermodel.Sheet; import org.apache.poi.ss.usermodel.Row; import org.apache.poi.ss.usermodel.Cell; import java.io.*; public class pro { public static void main(String[] args) { pro y=new pro(); } pro(){ Workbook wb = new HSSFWorkbook(); Sheet sheet1 = wb.createSheet(); Sheet sheet2 = wb.createSheet(); Sheet sheet3 = wb.createSheet("new sheet"); Sheet sheet4 = wb.createSheet("表計算用"); Row row1 = sheet1.createRow(0); Cell cx= row1.createCell(0); cx.setCellValue("Hello"); FileOutputStream out =null; try{ out = new FileOutputStream("sample.xls"); wb.write(out); }catch(IOException e){System.out.println(e.toString());} } }
https://w.atwiki.jp/cz8686/pages/16.html
[ExcelVBA]BOOKクローズ時に保存しないように OwnBook.Saved = True [ExcelVBA]Excelブックをオブジェクト変数にセット //EXCELVBAブックをオブジェクト変数にセット Set OwnBook = ActiveWorkbook Set DataSheet = OwnBook.Worksheets("data") Set TemplateSheet = OwnBook.Worksheets("template") [ExcelVBA]データシートの行数取得 DataSheetRowCnt = DataSheet.Range("A1").CurrentRegion.Rows.Count [ExcelVBA]テキスト取込み Dim j As Integer Worksheets("Sheet1").Select Open "D \MyDocuments\data.txt" For Input As #1 //変数初期化 i = 0 Do Until EOF(1) Input #1, _ myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), _ myBuf(21), myBuf(22), myBuf(23), myBuf(24), myBuf(25), myBuf(26), myBuf(27), myBuf(28), myBuf(29), myBuf(30), myBuf(31), myBuf(32), myBuf(33), myBuf(34), myBuf(35), myBuf(36), myBuf(37), myBuf(38), myBuf(39), myBuf(40), _ myBuf(41), myBuf(42), myBuf(43), myBuf(44), myBuf(45), myBuf(46), myBuf(47), myBuf(48), myBuf(49), myBuf(50), myBuf(51), myBuf(52), myBuf(53), myBuf(54), myBuf(55), myBuf(56), myBuf(57), myBuf(58), myBuf(59), myBuf(60), _ myBuf(61), myBuf(62), myBuf(63), myBuf(64), myBuf(65), myBuf(66), myBuf(67), myBuf(68), myBuf(69), myBuf(70), myBuf(71), myBuf(72), myBuf(73), myBuf(74), myBuf(75), myBuf(76), myBuf(77), myBuf(78), myBuf(79), myBuf(80), _ myBuf(81), myBuf(82), myBuf(83), myBuf(84), myBuf(85), myBuf(86), myBuf(87), myBuf(88), myBuf(89), myBuf(90), myBuf(91), myBuf(92), myBuf(93), myBuf(94), myBuf(95), myBuf(96), myBuf(97), myBuf(98), myBuf(99), myBuf(100), _ myBuf(101), myBuf(102), myBuf(103), myBuf(104), myBuf(105), myBuf(106), myBuf(107), myBuf(108), myBuf(109), myBuf(110), myBuf(111), myBuf(112), myBuf(113), myBuf(114), myBuf(115), myBuf(116), myBuf(117), myBuf(118), myBuf(119), myBuf(120), _ myBuf(121), myBuf(122), myBuf(123), myBuf(124), myBuf(125), myBuf(126), myBuf(127), myBuf(128), myBuf(129), myBuf(130), myBuf(131), myBuf(132), myBuf(133), myBuf(134), myBuf(135), myBuf(136), myBuf(137), myBuf(138), myBuf(139), myBuf(140), _ myBuf(141), myBuf(142), myBuf(143), myBuf(144), myBuf(145), myBuf(146), myBuf(147), myBuf(148), myBuf(149), myBuf(150), myBuf(151), myBuf(152), myBuf(153), myBuf(154), myBuf(155), myBuf(156), myBuf(157), myBuf(158), myBuf(159), myBuf(160), _ myBuf(161), myBuf(162), myBuf(163), myBuf(164), myBuf(165), myBuf(166), myBuf(167), myBuf(168), myBuf(169), myBuf(170), myBuf(171), myBuf(172), myBuf(173), myBuf(174), myBuf(175), myBuf(176), myBuf(177), myBuf(178), myBuf(179), myBuf(180), _ myBuf(181), myBuf(182), myBuf(183), myBuf(184), myBuf(185), myBuf(186), myBuf(187), myBuf(188), myBuf(189), myBuf(190), myBuf(191), myBuf(192), myBuf(193), myBuf(194), myBuf(195), myBuf(196), myBuf(197), myBuf(198), myBuf(199), myBuf(200), _ myBuf(201), myBuf(202), myBuf(203), myBuf(204), myBuf(205), myBuf(206), myBuf(207), myBuf(208), myBuf(209), myBuf(210), myBuf(211), myBuf(212), myBuf(213), myBuf(214), myBuf(215), myBuf(216), myBuf(217), myBuf(218), myBuf(219), myBuf(220), _ myBuf(221), myBuf(222), myBuf(223), myBuf(224), myBuf(225), myBuf(226), myBuf(227), myBuf(228), myBuf(229), myBuf(230), myBuf(231), myBuf(232), myBuf(233), myBuf(234), myBuf(235), myBuf(236), myBuf(237), myBuf(238), myBuf(239), myBuf(240), _ myBuf(241), myBuf(242), myBuf(243), myBuf(244), myBuf(245), myBuf(246), myBuf(247), myBuf(248), myBuf(249) i = i + 1 For j = 1 To 249 Cells(i, j) = myBuf(j) Next j Loop Close #1 [ExcelVBA]テキスト出力 Sub outputXML() Dim SaveFilename As String Dim i As Integer Dim DataSheetRowCnt As Integer データ行数取得 DataSheetRowCnt = ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count SaveFilename = Application.GetSaveAsFilename("test", "(*.xml),*.xml", , "結果の保存") SaveFilename = ActiveWorkbook.Path "\" "address.xml" MsgBox SaveFilename vbCr "に出力されました" Open SaveFilename For Output As #1 Print #1, " ?xml version= 1.0 encoding= Shift_JIS ? " Print #1, " ?xml-stylesheet type= text/xsl href= address.xsl ? " Print #1, " 名簿 " For i = 3 To DataSheetRowCnt Print #1, " 連絡先 " Print #1, " 正式名称 "; Cells(i, 1).Value; " /正式名称 " Print #1, " 略称 "; Cells(i, 2).Value; " /略称 " Print #1, " 担当者 "; Cells(i, 3).Value; " /担当者 " Print #1, " 内線 "; Replace(Cells(i, 4).Value, Chr(10), "、"); " /内線 " Print #1, " メールアドレス "; Replace(Cells(i, 5).Value, Chr(10), "、"); " /メールアドレス " Print #1, " 担当システム "; Replace(Cells(i, 6).Value, Chr(10), "、"); " /担当システム " Print #1, " 備考 "; Cells(i, 7).Value; " /備考 " Print #1, " 補足 "; Cells(i, 8).Value; " /補足 " Print #1, " /連絡先 " Next i Print #1, " /名簿 " Close #1 ActiveWorkbook.Save End Sub [ExcelVBA]フォルダ選択ダイアログ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ パブリック変数宣言 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■定数■ /* BrowseForFolder Method Options */ Const BIF_RETURNONLYFSDIRS = H1 // Only return file system directories. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ フォルダ取得ダイアログを表示する (BrowseForFolder関数) 引数 sTitle タイトルの文字列 nOptions 選択オプションの値 sRootFolder 既定フォルダの文字列 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Public Function BrowseForFolder(sTitle As String, nOptions, Optional sRootFolder As String = "") As String Dim oShell As Object Dim oFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, sTitle, nOptions, sRootFolder) If oFolder Is Nothing Then BrowseForFolder = "" Else If oFolder.ParentFolder Is Nothing Then 下位の未選択デスクトップ Dim objWShell As Object WScript.Shell シェルのオブジェクトを作成 Set objWShell = CreateObject("WScript.Shell") デスクトップの場所を返す BrowseForFolder = objWShell.SpecialFolders("Desktop") オブジェクトの解放 Set objWShell = Nothing Else BrowseForFolder = oFolder.Items.Item.Path パスをセットする End If End If Set oFolder = Nothing Set oShell = Nothing End Function sub 呼び出しがわ() dim PUB_SAVE_FOLDER as String PUB_SAVE_FOLDER = BrowseForFolder(mymsg, BIF_RETURNONLYFSDIRS, "") Msgbox PUB_SAVE_FOLDER end sub [ExcelVBA]改行コードの除去 Sub test() Dim value1 As String value1 = Cells(1, 2) value1 = Replace(value1, Chr(10), "") 改行コードの除去 Chr(10)= LF:改行 MsgBox value1 Cells(2, 1) = value1 End Sub [ExcelVBA]全シート選択・プレビュー Dim i As Integer For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ActiveWorkbook.Worksheets(i).Select fase Next i ActiveWindow.SelectedSheets [Excel関数]色々 ■(例)セル値が○になっているデータの数をカウントする。 =COUNTIF(E4 E25,"○") ■(例)セル値が空欄の数をカウントする。 =COUNTBLANK(E5 E27)
https://w.atwiki.jp/ryouga0415/pages/96.html
OfficeProではExcelやAccessなどの使い方やVBAの記述方法などについて解説しています http //www.officepro.jp/
https://w.atwiki.jp/ue4wiki/pages/65.html
Excel連携 概要 まずはココを見よう! 参考ページ Tips 概要 直接のExcelとの連携は用意されていないが、CSVを経由することでExcelのデータを取り込むことが出来る。 まずはココを見よう! データ主導型ゲームプレイエレメント(オフィシャルドキュメント) 【UE4】 CSVデータを扱う方法 DataTable編(historiaブログ) 【UE4】 CSVデータを扱う方法 CurveTable編(historiaブログ) 参考ページ Tips 補足コメント コメント すべてのコメントを見る
https://w.atwiki.jp/listbox/pages/57.html
関数 月数を数える関数[A1を頭、A2を末とする。] =DATEDIF(A2,A1,"M")+1 日数計算 内容も繋げてセル結合 =CONCATENATE(A1,"と",C1) OR (AかBのどちらかが60超なら○、それ以外は●と表示) =IF(OR(A1 =60,B1 =60,C1 =60),"○","●") (全て60点以上なら○、1つでも60点以上があれば△、それ以外は×と表示) =IF(AND(A1 =60,B1 =60,C1 =60),"○",IF(OR(A1 =60,B1 =60,C1 =60),"△","×")) MIN:最低値あぶりだし MAX:最高値あぶりだし NOW:日付と時刻 DATE:日付と時刻 セルに、年、月、日を他セルからコピーして表示させる。 PMT:住宅ローンなどの借入金返済計画を計算するときに使う FV:投資の将来額を求める関数 いくらづつ積上げたら満期にいくら…とか。 データのある一行だけを一気に選択する方法 [Ctr + Shift + 矢印キー] or [F5] ショートカット 繰り返し。[F4] or [Ctrl] + [Y] 日付。 [Ctrl] + [;] 時刻。 [Ctrl] + [Shift] + [ ] 上セルをコピー。 [Ctrl] + [ ] コメント挿入。 [Shift] + [F2] オートSUM。 [Alt] + [=] 通貨に。 [Ctrl] + [Shift] + [$] 外枠の罫線。 [Ctrl] + [Shift] + [ ] 桁区切り。 [Ctrl] + [Shift] + [!] フォントの種類にフォーカス。 [Ctrl] + [Shift] + [F] フォントサイズにフォーカス。 [Ctrl] + [Shift] + [P] カット(切り取り)Ctrl+X 保存Ctrl+S 書式コピー Ctrl+Shift+C ペースト Ctrl+Shift+V 置き換え…Ctrl+H 空白セルだけを選ぶ → 範囲選択>編集⇒ジャンプ(Ctrl+G)>セル選択ボタン>空白セルを選んでOK 縦書き…セルの書式設定>配置>右よりにある縦の文字列をクリック。 クリップボード…表示>ツールから。word+excelなどと共用できるクリップボード。 書式(文字+セル装飾)のクリア…編集>クリアから。+E+A+F 指定範囲に文章を合わせる(=割付)…割付たい範囲を選択>編集>フィル>文字の割付 +EIJ 左:小数点表示桁上げ 右: #ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (excelhyouji2.JPG) インデント。左:指定範囲の文字頭を一文字あけて綺麗に整える。右:解除 インデントの幅を広げたい…セル書式設定>配置>インデントで数値を入力 テンプレートを作りたい…保存するときにテンプレートを形式に選ぶ。 決まったスタイル(=デザイン)を使いたい…書式>スタイル>選ぶ。「標準」を選ぶと解除になる。 改ページを見ながら編集…表示>改ページプレビュー>ズームを100%にする。 印刷 複数シートを印刷…複数シートを選択して印刷 中央に印刷したい…ページ設定>余白>下にある水平と垂直に✔すると中央に表示される。 改ページの挿入…挿入>改ページ(挿入の解除を選ぶと解除) ヘッダーとフッター…表示>ヘッダーとフッター 指定の範囲を、指定の複数ページ全てに印刷したい…ページ設定>シート>印刷タイトル。 行列番号も印刷…ページ設定>シート>行列番号に✔ ウィンドウ ウィンドウ固定…固定したいセルの一つ右、一つ下を指定>ウィンドウ>ウィンドウ枠固定(解除を選ぶと解除) 範囲を選択してズームすることもできる。 複数シートにまたがるサム… 複数ブックにまたがるサム… 幅や高さの自動設定…範囲指定してセルの境目をWクリック オートフォーマット…書式>オートフォーマット (表デザインのテンプレ) 適用取り消しもここ。 ↑ このときオプションボタンで、文字装飾など一部のデザイン適用を外すことができる。